home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / rexx / xdmd1.lha / Arabic.xdme < prev    next >
Text File  |  1993-08-28  |  707b  |  28 lines
  1. /* Arabic.xdme © 1993 Fergus Duniho */
  2. /* Converts a Roman numeral to an Arabic numeral */
  3.  
  4. Arg ROMAN
  5. A = 0
  6.  
  7. Do P = 1 to Length(ROMAN)
  8.     L = Substr(ROMAN,P,1)
  9.     R = Delstr(ROMAN,1,P)
  10.     Select
  11.         When L = 'M' Then A = A + 1000
  12.         When L = 'D' Then A = A + 500
  13.         When L = 'C' Then If Verify(R,'MD','M')>0
  14.             Then A = A - 100
  15.             Else A = A + 100
  16.         When L = 'L' Then A = A + 50
  17.         When L = 'X' Then If Verify(R,'CL','M')>0
  18.             Then A = A - 10
  19.             Else A = A + 10
  20.         When L = 'V' Then A = A + 5
  21.         When L = 'I' Then If Verify(R,'XV','M')>0
  22.             Then A = A - 1
  23.             Else A = A + 1
  24.         Otherwise NOP
  25.     End
  26. End
  27. Exit A
  28.